#!
$song = "I m a Big big girl. In a big Big world.";
$matched = 0;
while( $song=~/big/ig)
{
	$matched ++;
}
print $matched;
print "\n$song";